home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1998 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'AHMTDice.pas' rev: 3.00
-
- #ifndef AHMTDiceHPP
- #define AHMTDiceHPP
- #include <AHMFreeware.hpp>
- #include <Graphics.hpp>
- #include <Controls.hpp>
- #include <Classes.hpp>
- #include <SysUtils.hpp>
- #include <Messages.hpp>
- #include <Windows.hpp>
- #include <SysInit.hpp>
- #include <System.hpp>
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Ahmtdice
- {
- //-- type declarations -------------------------------------------------------
- class DELPHICLASS TAHMDice;
- class PASCALIMPLEMENTATION TAHMDice : public Controls::TGraphicControl
- {
- typedef Controls::TGraphicControl inherited;
-
- private:
- Ahmfreeware::TAHMAboutFreeStr FAbout;
- int FValue;
- Graphics::TColor FDotColor;
- Graphics::TColor fback;
- Graphics::TColor fhback;
- bool fHold;
- void __fastcall AutoInitialize(void);
- void __fastcall SetValue(int Value);
- void __fastcall SetDotColor(Graphics::TColor Value);
- void __fastcall Holdit(bool Value);
- MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
- void __fastcall Setback(Graphics::TColor value);
- void __fastcall Sethback(Graphics::TColor value);
-
- protected:
- DYNAMIC void __fastcall Click(void);
- virtual void __fastcall Paint(void);
-
- public:
- __fastcall virtual TAHMDice(Classes::TComponent* AOwner);
- __fastcall virtual ~TAHMDice(void);
- void __fastcall Roll(void);
- virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
- );
-
- __published:
- __property Ahmfreeware::TAHMAboutFreeStr About = {read=FAbout, write=FAbout};
- __property OnClick ;
- __property OnDblClick ;
- __property OnDragDrop ;
- __property OnDragOver ;
- __property Graphics::TColor NormalBackground = {read=fback, write=Setback, nodefault};
- __property Graphics::TColor HoldBackground = {read=fhback, write=Sethback, nodefault};
- __property OnEndDrag ;
- __property OnMouseDown ;
- __property OnMouseMove ;
- __property OnMouseUp ;
- __property int Value = {read=FValue, write=SetValue, default=1};
- __property bool Hold = {read=fHold, write=Holdit, default=0};
- __property Graphics::TColor DotColor = {read=FDotColor, write=SetDotColor, default=0};
- };
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Ahmtdice */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Ahmtdice;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // AHMTDice
-